@ Sample for Computing in Musicology 1993
@ Philip Hazel, June 1993
draw ped
  0 0 moveto "\**163\ "show
enddraw  
        
draw star
  linegapx neg 3 add 0 moveto "\**36\"/s3 show
enddraw  
draw pedstar
  linegapx neg 3 add 0 moveto "\**36\  "/s3 show "\**163\" show
enddraw  
draw circle
  -1.5 headbottom 3 sub moveto
   3 -2.5  7 -2.5  10   0 rcurveto
   3    3  3    7   0  10 rcurveto
  -3  2.5 -7  2.5 -10   0 rcurveto
  -3   -3 -3   -7   0 -10 rcurveto
  0.4 setlinewidth stroke
enddraw  
draw circle2
  -5.5 headbottom 4 sub moveto
   4   -3.5  10   -3.5  14  0 rcurveto
   4.5  4   4.5    10   0  14 rcurveto
  -4    3.5  -10  3.5  -14  0 rcurveto
  -4.5  -4 -4.5   -10   0 -14 rcurveto
  0.4 setlinewidth stroke
enddraw  
draw circle3
  -3 headbottom 5.5 sub moveto
   3.5   -3  8.5   -3   12  0 rcurveto
   4    3.5   4    8.5  0  12 rcurveto
  -3.5    3 -8.5    3  -12  0 rcurveto
  -4   -3.5  -4   -8.5  0 -12 rcurveto
  0.4 setlinewidth stroke
enddraw  
*define ped  [line/=L/bu linegap/=L/w34/l4/draw ped]
*define ped2 [line/=L/bu linegap/=L/w34/l16/draw ped]
*define star [linegap/=L/l4/draw star]
*define pedstar [linegap/=L/l8/w30/draw pedstar]
*define circ  [draw circle]
*define circ2 [draw circle2]
*define circ3 [draw circle3]
*define gtb1 "\rm\beginning)"/a/c/s3 
*define gtb2 "\rm\(Go to"/a/c/s3
*define pp "\x1\pp"/m/s2
*define p  "\x1\p"/m/s2
*define mp "\x1\mp"/m/s2
*define mf "\x1\mf"/m/s2
*define f  "\x1\f"/m/s2
*define sfz "\x1\sfz"/m/s2
Heading 16 "|#4. Herbert Bielawa" 18
Heading 16 "|Just Add Water" 100
linelength 450
justify top left right
unfinished
systemgap 130
bracket
brace 1-2
beamendrests
rehearsalmarks boxed 16
textfont extra 1 "PMS.Alpha"
textsizes 10 8 7 8
tripletfont 8 italic
time C
[stave 1 "\bf\Piano"/m treble 1]
"\*c\\rm\ = 80"/a/c
["A"/u20]
"effervescent"/b/l16
[couple down]
r [space 4] &sfz/a/u2 (#c'=d''=)r=r= &circ [slur/b/ld3/lr1] a`=\su\ 
{/rx/u35 re'\-\ c`\-\} [es] [space -4] [move 12 comma] &gtb1/u10/l2 &gtb2/l2 :)| @1
["B"/u14]
[beamrit 2] 
[\.\] {7/x$e-\c\g'-#f-a`-d`- &circ [slur/b] f``-$a`-}; 
[\\ beamslope 0.2] r- &p/l8/u4 (c'-\.\b'-); 
[beamslope 0.1 beammove 5]
q=g```=\su\ [es] &f/a/l4/d2 (#c-\sd >\d'-) | @2
&mp/l4 r-; {/u42 $b=\sd\ &mp/d6/c/l8  [move -4] 
&circ [slur/b/rd48/rr24/lr4/ld3] e`=\su\f'=\sd\}; r=\l8\ &sfz/l4/u8 (c''=g''=)r-; r [es] 
[beammove 4 beamslope 0.1]
{/b/u37/n &f/a/d38 $g``-\.su\($e'-\.sd\$b'-)a-\.sd\} 
[move 16 comma space -8] &gtb1/u12 &gtb2 :)| @3
[sshere +8]
["C"/u34]
&p/r4 r [space -8] [slur/a/co4] f`=\su\ c=\c su\ $a`=\h sd sl-8\$c=\sd sl-4\; [es]
[beamslope 0]
{5/u30 &circ2 [slur/b/lu18/lr3/ru28/ci24] $e-\- sd\ d`-\- su\ ($b-\-\f'-) [es]  
$d-\-\ ($a``-\-su\c`-)} | @4
&circ [slur/a/ld28/w] g`-\.su\($e'-\.sd\$b'-); r;
{6/u42 &mp/l16/u8 [xslur/a/u1] #c=\sd\ [es] #f= [es] %c=\.c su\ [slur/a/co12/clr3/ll3/lu2] a`=\su\ 
[space 4] $e=$a=}; [es] 
q= &circ &sfz/b/d8 </b/d6/r12 [slur/b/lr7/ru2/co2] d``=\su\ 
b=-\sd\#f'=-\sd\ #c=-\c\ [es] #e`=-\.\ | @5
[sshere +20]
[beamrit]
[beamslope 0.005]
[space 2] 
[\.\] {18/x &circ2 &f/b/d54 [slur/a/lu3/ru6/ci4] #g-\sd\ [space 2] %g'- b- [es]
>/b/d9  e-\c su sl-8\ #f`-\su sl-8\ #a-
#c''- %c'- &circ3 [slur/b/ld3/rd2] a`-\su sl-8\ e''- #d'- #f-\c su sl-8\ [es] b`-\su sl-8\
%f- a'- d- #g``-\su\ > e-} &gtb1/u12/l4 &gtb2/l4 [space -4 move 10 comma] :)| @6
[endstave]
[stave 2 bass 0]
"\rm\(Before each repeat pause briefly."/b/l16/d38/s4
"\rm\When playing through do NOT pause.)"/b/l16/s4
[ulhere -22]
r-.; &f/a/d2/l2 (g`=\sl2\$b`=) &ped qq &star q [el] :) | @1
&ped Qq r= &pedstar q=q- | @2
[ulhere -4]
r-q- q= &star q= [el] [reset] q r r-.; [space 2]$e=\sl2\; [space 2] &ped 
{/x q-q- &star q-[el]} :) | @3
r &ped qQ | @4
[ulhere -36]
q- &star q- [el] rq r=q= &ped q- | @5
Qqq-q= &star q= [el] :)| @6
[endstave]